home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Word Perfect Main Street: Paper Planes
/
WordPerfect Main Street - Paper Planes.iso
/
mac
/
Gloss
/
00021_Script_21
< prev
next >
Wrap
Text File
|
1994-05-12
|
757b
|
26 lines
on exitFrame
global ReadGlossary
if ReadGlossary then
set ReadGlossary = FALSE
set fileName = the Pathname & "Glossary:Gloss.txt"
set theFile = FileIO(mNew, "read", fileName)
set lineNum = 1
set done = FALSE
repeat while not done
set aLine = theFile(mReadLine)
if aLine = EMPTY then
set done = TRUE
else
set aWord = item 1 of aLine
put (aWord & RETURN) into line lineNum of field "Glossary"
set theLabel = item 2 of aLine
set theVisual = item 3 of aLIne
put (theLabel & "," & theVisual) into line lineNum of field "GlossaryData"
set lineNum = lineNum + 1
end if
end repeat
theFile(mDispose)
end if
cursor -1
end